Top 10k strings from Dominoes (1983)(Phipps Associates)(16k).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
3 a$(y,x)="1":
3 a$(x,y)="1":
3 ,m1,m1,153
2 b$(e)*(b$(e)=b$(e-c1)):
2 a$(y,x)="2"
2 a$(x,y)="3":
2 a$(x,y)="2":
2 ;"You = ";hum;
2 ;"Computer = ";com
2 23732+256*
2 23641+256*
2 ,m1,m1,165
2 (v(h)-c1)+
2 "DOMINOESII"
2 "DOMINOESI"
1 zz=zz-c2*(hu=h1):
1 zz=zz-c2*(co=h1):
1 z=w(i)-c1:
1 z=w(h)-c1:
1 z=v(i)-c1:
1 z=v(h)-c1:
1 two,f;"In this game you will be playing",,"against me. We will both be ",,"given eight dominoes and then we",,"take turns to place them on the ",,"table end to end. A piece may ",,"only be played if one of the end",,"numbers is the same as one of ",,"the ends of pieces already ",,"played.":
1 t;"I have won and will start. ":
1 t;"Do you want heads or tails? "
1 t;" DOMINOES "
1 t;" You have won and may start ":
1 po=po+v(i):
1 num=num+t:
1 mm=(i-c1)*4
1 m1=c4))+x$+(y$
1 m1=c3))+b$+(z$
1 m1,m1,m1,m1,m1,m1,m1,m1,m1,m1,m1,231
1 m(z+c1,c2)
1 m(e(i)+c1,c2)
1 jj=c8*ff+c4*i+g
1 j=e(c1)+e(c2)+e(c1)*(e(c1)=e(c2))+e(c3)*(e(c3)=e(c4))
1 ha=ha+(a$(x,y)="2"):
1 h8,d1,h8,d1,h7,d1,h7,c8,h7,d6,h7,d1,h7,c8,h7,c4,h8,c9,h8,c9,h7,c9,h7,c6,h7,c8,h7,c9,h7,c8,h7,c6
1 h6,c8,h7,c6,h6,c5,h7,c5,h7,c5,h7,c3,h7,c5,h8,c6,h6,c5,h7,c5,h6,c3,h7,c3,h7,c3,h7,c1,h7,c3,h8,c5,h6,c1:
1 f;"Do you want the instructions? ";
1 f;" (enter h or t) ":
1 d6;e$;" = ";hu:
1 d6,(h-c1)*c4;
1 d5+c4*t,mm+c3;"
1 d5+c4*t,mm+c1;"
1 d4+c4*t,mm+c3;"
1 d4+c4*t,mm+c2;"
1 d4+c4*t,mm+c1;"
1 d3+c4*t,mm+c3;"
1 d3+c4*t,mm+c1;"
1 d2,mm+c2;i:
1 d0;"YOU HAVE WON";
1 c9,c2+jj;"
1 c9,c1+jj;"
1 c8,c1+jj;"
1 c7,c2+jj;"
1 c7,c1+jj;"
1 c5;"A NEW GAME IS STARTING"
1 c5,c0;d$;" = ";co;
1 c3,c1;e8-no:
1 c1;"Your turn: can you go? (y or n) ":
1 c1;"You start:enter number of domino"::
1 c1;"BONUS":
1 c1;" Cheat: you can move domino no.";i:
1 c1;" I am thinking of my move ";
1 c1;" Enter number of domino ";"
1 c1;" No more dominoes unassigned ":
1 c1;" NO MORE MOVES ARE POSSIBLE",:
1 c1,d3;"WAIT";
1 c1,d2;"WELL DONE";
1 c1,c6;"BAD LUCK: I HAVE WON"
1 c0;"THANK YOU & GOODBYE":
1 c0;"I have ";ha;" dominoes in my hand. ":
1 c0;"Added to right or left of line? ":
1 c0;" = ";hu:
1 c0;" = ";co;
1 c0;" dominoes unassigned ";
1 c0,c9;"Press a key"
1 c0,c0;"Dominoes used:";
1 b,(h-c1)*c4;" ":
1 b,(h-c1)*c4+c1;"
1 b$(z-c1));
1 b$(z));" ";:
1 b$(e)*(b$(e)=b$(e-c1))
1 b$(c2)+c1:
1 b$(c1)-(b$(c1)
1 b$(c1)+c2*
1 b$(c1)+c1:
1 b$(c1)+c1)
1 b$(c1)*(b$(c1)=b$(c2)):
1 b$(c1)*(b$(c1)=b$(c2))+
1 b$(a*(a<c3)+(e-c4+a)*(a>c2)):
1 a$(y1,x1)="3"
1 a$(y,x)="3":
1 a$(y,x)="3"
1 a$(x1,y1)="3":
1 a$(x,y)="2"
1 a$(x,y)=" "
1 a$(w(h),v(h))="3":
1 a$(v(h),w(h))="3":
1 a$(c7,c7):
1 a$(c7,c4)="2"))+("45"
1 a$(c5,c7)="2")+("33"
1 a$(c5,c6)="2")+("15"
1 a$(c4,c4)="2")+("06"
1 a$(c2,c6)="2")+("46"
1 a$(c1,c7)="2")+
1 YOUR DOMINOES
1 DOMINOESII
1 DOMINOESI
1 DOMINOES
1 Created with Ramsoft MakeTZX
1 ;"Wait...":
1 ;"TOSS NO ";num
1 ;"Start the tape":
1 ;"Result";
1 ;"Computer";
1 ;"=70"''"Each time a set of dominoes has"''"been used, a new set will be"''"dealt until the total score has"''"been reached.":
1 ;"(y or n)":
1 ;" Program loading",;
1 ;" Press a key "
1 366115500441100222266003311225544442233446666553P
1 23642-23295":
1 23642-16383":
1 2333333323333333333333331333333333333333233333333
1 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000222222222222222222222222000000002222222222222222222222200000000222222222222222222222220000000022222222222222222222222000000002222222222222222222222200000000222222222222222222222220000000022222222222222222222222000000002222222222222222222222200000000222222222222222222222222000000022222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000
1 1983 Phipps Associates
1 ,m1,m1,m1,m1,231
1 ,m1,m1,m1,231
1 ,m1,m1,231
1 ,m1,m1,159
1 ,f;"NOW IT IS TIME TO DECIDE WHO IS TO START. ":
1 ,f;"Both ends of a double domino ",,"count towards the total. For ",,"points to be scored this total ",,"must be exactly divisible by 3 ",,"or 5. The number of points is ",,"the dividend.",,,,,,"Press any key for an example of ","the scoring."
1 ,f;" A coin is going to be tossed 5 times. ",," You may call heads or tails. ",,"If you succeed with 3 calls thenyou may start the game: if you are correct less than three times then the computer starts. ",,,,"Good luck: press any key to start the toss. "
1 ,f;" I AM LOADING THE MAIN PROGRAM ":
1 ** I have decided on my move **
1 )=x/y*(x/y=
1 (w(h)-c1)+
1 (v(h)-c1):
1 (a$(c7,c7)="2"
1 ''"Total of end dominoes = 5 + 2 = 7"
1 ''"The total of end dominoes is:"''" 5+5+5 = 15"''"Note: Both ends of a double"'" domino count towards the total."''"Points scored = 15/3 + 15/5 = 8"
1 ''"Points scored = 7/3 + 7/5 = 0"''"The score here is zero since 7 is not exactly divisible by either 3 or 5."
1 ''"A bonus of 5 points is awarded"''"to a player who uses all the"''"dominoes in the hand."
1 '"(Press any key to continue) "
1 #t;"Press a key...":
1 "The game is finished when one of"''"us has reached 72 points"''"exactly. Any points above 72 are"''"taken away from the total - e.g."''" 69+5=74"'
1 "If one player cannot play a ",,"piece then the other player ",,"takes a turn. When a piece is ",,"played a replacement piece is ",,"taken from the unassigned pieces",,"if any exist. ",,"The number of points awarded ",,"when a piece is played is calcul",,"ated by adding the two end ",,"dominoes. ",,,,"(Press any key to continue.) "
1 "DOMINOES"
1 ";" I am making my move ";"
1 "8700+mv*100"
1 "23681",c1:
1 "23681",c0:
1 "1300"+g1*
1 Your score
1 You have no dominoes left
1 My scoreE
1 Move is being made
1 Move impossible; enter again
1 1983 PHIPPS ASSOCIATES
1 THIS PROGRAM IS PROTECTED
1 I have no dominoes left
1 Another game?(y or n)
1 STOP THE TAPE
1 Dominoes
1 By: D.G. Cross